home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Not Passing History.cpt / Not Passing History / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-02-09  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>19</cardCount>
  7.     <cardID>5823</cardID>
  8.     <listID>12803</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on mouseUpif mouseV() < 20 and mouseH() < 20 thenshow menuBarelsehide menuBarend ifend mouseUpon popup thisFieldcleanScreenlock screenget visible of cd fld thisFieldset visible of cd fld thisField to not itunlock screen with dissolve very fastend popUpon idleif commandKey() is down thenshow menuBarend ifpass idleend idleon cleanScreenhide menuBarhide msgend cleanScreenon closeCardcleanScreenend closeCardon GoHomecleanScreenanswer "Explore the Library stacks or Quit?" ¬¨& return &return &"(‚ÄúHome‚Äù stack? - Option-click ‚ÄúLibrary‚Äù)" with ¬¨"Library" or "Quit" or "Cancel"if it is "library" thenset cursor to 4if optionKey() is down thenvisual dissolve to greyvisual dissolve to grayvisual zoom ingo homeelsevisual zoom ingo stack "Library"if result() is empty then else beepend ifend ifif it is "Quit" thendoMenu "Quit HyperCard"end ifend GoHomeon doMenu WhichItemif whichitem is "If Monks Had Macs..." thenanswer ¬¨"       This stack is from the package" &return¬¨&"       ‚ÄúIf Monks Had Macs...‚Äù 2.5.7" &return¬¨&"       ¬©1988,1989  riverTEXT‚Ñ¢"exit domenuend ifif WhichItem is not "Quit HyperCard" thenif whichItem is in "Back,Recent,First,Prev,Next,Last,Find" then-- Yeah, it's a pain, but it helps keep the stack from arriving-- at your Mac missing cards and with unathorized additions.if short name of this bg is "Carmina" thenanswer "Please use just the arrow keys and the mouse to " ¬¨&"turn the pages of the book."cleanScreenelseif short name of this bg is "Main Background" thenanswer "Please use just the arrow keys and the mouse to " ¬¨&"flip through the notes."cleanScreenend ifend ifexit doMenuelseif first word of whichItem is in "New,Delete,Cut,Paste" thenif short name of this cd is "AutoMusicon" thenif last word of whichItem is "Text" thenpass doMenuexit doMenuend ifelseanswer "This stack shouldn't be modified."cleanScreenexit domenuend ifelsepass doMenuend ifend ifexit doMenuelseif the freesize of this stack > 2000 ¬¨and the diskspace > the size of this stack thenAnswer "Compact this stack before quitting?" with ¬¨"Compact" or "Next time" or "Cancel"If it is "Compact" thenif cantmodify of this stack is false thenset loc of Message Box to 17,110Put "             Compacting this stack before quitting"doMenu "Compact Stack"elseshow menuBaranswer "The Cantmodify of this stack is set to true," ¬¨&" so compacting is impossible at this time. Next session?"¬¨with "OK"end ifend ifif it is "Cancel" thenexit doMenuend ifend ifend ifpass doMenuend doMenuon openStackglobal stacks,JBTempo,JBInstcleanScreenif the version < 1.2 thenAnswer "Hypercard version 1.2, or later, is available at your "¬¨&"Apple dealer. Many functions of this stack require the new "¬¨&"features.  Continue?" ¬¨with "Risk It" or "Go Home"if it is "Go Home" thenvisual dissolve to greyvisual dissolve to grayvisual dissolvego homeexit openStackend ifend ifif stacks is empty thenCheckGlobalsend ifAbout " ","If Monks Had Macs..."put empty into JBTempoput empty into JBInstset userLevel to 5set textArrows to falseend openStackon CheckGlobalsglobal GULevel,GPKeys,GTArrowsglobal GVPatn,GBTyping,GVMsg,GVToolgetHomeInfoput the userLevel into GULevelput the powerKeys Into GPKeysput the textArrows into GTArrowsput the blindTyping into GBTypingput the visible of the msg into GVMsgput the visible of tool window into GVToolput the visible of pattern window into GVPatnend CheckGlobalson closeStackglobal GULevel,GPKeys,GTArrowsGlobal GVPatn,GBTyping,GVMsg,GVTool